home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / ValueHolder.p < prev    next >
Text File  |  2004-01-31  |  1KB  |  42 lines
  1. pTempVar <- <primitive 110 8 >
  2. <primitive 112 pTempVar 1  " printOn: " \
  3.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16r21 16r31 16r81 16r02 16rF1 16r20 \
  4.         16rA5 16r81 16r03 16rF2 16rF2 16rF5] \
  5.     #( #printOn: ' on: ' #nextPutAll: #print:  )) >
  6.  
  7. <primitive 112 pTempVar 2  " value " \
  8.   #( #[ 16r10 16rF3 16rF5] \
  9.     #(  )) >
  10.  
  11. <primitive 112 pTempVar 3  " setValue: " \
  12.   #( #[ 16r21 16r60 16rF5] \
  13.     #(  )) >
  14.  
  15. <primitive 112 pTempVar 4  " with: " \
  16.   #( #[ 16r20 16rA0 16r21 16r81 16r00 16rF3 16rF5] \
  17.     #( #setValue:  )) >
  18.  
  19. <primitive 112 pTempVar 5  " newString " \
  20.   #( #[ 16r20 16r05 16r3A 16r50 16rB0 16r81 16r00 16rF3 16rF5] \
  21.     #( #with:  )) >
  22.  
  23. <primitive 112 pTempVar 6  " newFraction " \
  24.   #( #[ 16r20 16r30 16r81 16r01 16rF3 16rF5] \
  25.     #( 0.0 #with:  )) >
  26.  
  27. <primitive 112 pTempVar 7  " newBoolean " \
  28.   #( #[ 16r20 16r5C 16r81 16r00 16rF3 16rF5] \
  29.     #( #with:  )) >
  30.  
  31. <primitive 112 pTempVar 8  " dependents " \
  32.   #( #[ 16r20 16r90 16r00 16rF3 16rF5] \
  33.     #( #dependents  )) >
  34.  
  35. <primitive 98 #ValueHolder \
  36.   <primitive 97 #ValueHolder #ValueModel #AmigaTalk:General/ValueHolder.st \
  37.    #(  #value ) \
  38.    #( #printOn: #value #setValue: #with: #newString #newFraction #newBoolean  \
  39.        #dependents  ) \
  40.   pTempVar 2 6 > #ordinary >
  41.  
  42.